home *** CD-ROM | disk | FTP | other *** search
/ PC World 2006 February / PCWorld_2006-02_cd.bin / software / vyzkuste / tnt / tnt.exe / {app} / plugins / Login Window Message Count.ttp < prev    next >
INI File  |  2005-03-15  |  2KB  |  73 lines
  1. [SETTINGS]
  2. category=Windows Tweaks::Startup/Shutdown::Unread Email Count on Login Screen
  3. Caption=Unread Email Count on Login Screen
  4. version=1.0
  5. OSVERSION=XP,2003
  6. #=This tweak can be used to remove the message on the Windows XP Welcome screen showing the number of unread e-mails in your hotmail account.
  7. #=\nYou can also enter the number of days users will be reminded of unread email. If the user has not opened the unread email for the indicated number of days, the reminder (not the email) will not be shown anymore.
  8. Author=
  9. optionexplicit=0
  10. Encrypted=0
  11.  
  12. [INTERFACE]
  13. TYPE=multi
  14. Text0=Show unread mail count on welcome screen (current user)
  15. type0=check
  16. text1=Abandon reminder after days :
  17. type1=spin
  18. style1=1,30
  19.  
  20. Text3=Show unread mail count on welcome screen (all users)
  21. type3=check
  22. Text4=Abandon reminder after days :
  23. type4=spin
  24. style1=1,30
  25.  
  26. [EXPORT}
  27.  
  28. [SCRIPT]
  29. dim strPath1,strpath2
  30. strPath1="HKCU\Software\Microsoft\Windows\CurrentVersion\UnreadMail\MessageExpiryDays"
  31. strPath2="HKLM\Software\Microsoft\Windows\CurrentVersion\UnreadMail\MessageExpiryDays"
  32.  
  33. Sub OnInit()
  34. dim i
  35. i=RegReadValue(strPath1)
  36. if i=3 or IsEmpty(i)=true then  CheckItem 0,true
  37. If IsEmpty(i) then i = 3
  38. SetItemText 1, i
  39.  
  40. i=RegReadValue(strPath2)
  41. if i=3 or IsEmpty(i)=true then  CheckItem 3,true
  42. If IsEmpty(i) then i = 3
  43. SetItemText 4, i
  44.  
  45. OnEvent 0,0
  46.  
  47. End Sub
  48.  
  49. Sub OnApply(x,y)
  50. Dim s
  51. if IsItemChecked(0)=true then
  52. s = GetItemText (1)
  53. If IsEmpty(s) then s = 3
  54. RegWriteValue strPath1,s,2
  55. else
  56. if RegvalueExists(strPath1) =true then RegWriteValue strPath1,0,2
  57. end if
  58.  
  59. if IsItemChecked(3)=true then
  60. s = GetItemText (3)
  61. If IsEmpty(s) then s = 3    
  62. RegWriteValue strPath2,s,2
  63. else
  64. if RegvalueExists(strPath1) =true then RegWriteValue strPath2,0,2
  65. end if
  66.  
  67. Restart
  68. End Sub
  69.  
  70. Sub OnEvent(x,y)
  71. EnableItem 1, IsItemChecked(0)
  72. EnableItem 4, IsItemChecked(3)
  73. End Sub